﻿Namespace LightSwitchApplication

    Public Class Application


        Private Sub ManageUsers_CanRun(ByRef result As Boolean)
            ' Set result to the desired field value
            result = Me.User.HasPermission(Permissions.SecurityAdministration)
        End Sub

        Private Sub SearchCustomers_CanRun(ByRef result As Boolean)
            ' Set result to the desired field value
            result = Me.User.HasPermission(Permissions.SecurityAdministration)
        End Sub
    End Class

End Namespace